home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Hyper / H / HyperExtras.sit / HyperExtras / HyperExtras.rsrc / TEXT_3002_fldCount.txt < prev    next >
Encoding:
Text File  |  1994-03-23  |  514 b   |  14 lines
  1. global HEXinfo
  2.   if the shiftKey is up then HEXquest
  3.   put empty into HEXinfo
  4.   repeat with x=1 to the number of flds
  5.     set cursor to busy
  6.     put short name of fld x into name
  7.     put id of fld x into fldID
  8.     put rect of fld x into fldRect
  9.     put visible of fld x into visB
  10.     put lockText of fld x into locked
  11.     put style of fld x into style
  12.     put "FLD "&x&":"&&"ID"&fldID&" *NAME:"&name&" *RECT:"&fldRect&¬¨
  13.     " *VISIBLE:"&visB&" *LOCKED:"&locked&" *STYLE:"&style into line x of HEXinfo
  14.   end repeat